home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / START.dxr / 00081.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  345 b   |  19 lines
  1. on mouseUp
  2.   global Voice
  3.   if Voice = 1 then
  4.     set Voice to 0
  5.     put "0" into field "Voice"
  6.     set the member of sprite 17 to member "off"
  7.   else
  8.     set Voice to 1
  9.     put "1" into field "Voice"
  10.     set the member of sprite 17 to member "on"
  11.     puppetSound("VoiceON")
  12.   end if
  13.   updateStage()
  14. end
  15.  
  16. on mouseDown
  17.   puppetSound("click")
  18. end
  19.